userdict /Adobe_cmykcolor_vars 2 dict dup begin put
/_setrgbcolor
/setrgbcolor load def
/_currentrgbcolor
/currentrgbcolor load def
Adobe_cmykcolor begin
Adobe_cmykcolor
dup xcheck
bind
} if
pop pop
} forall
Adobe_cmykcolor begin
} ifelse
} def
/terminate % - terminate -
currentdict Adobe_cmykcolor eq
} if
} def
/setcmykcolor % cyan magenta yellow black setcmykcolor -
1 sub 4 1 roll
3 index add neg dup 0 lt
pop 0
} if
3 1 roll
} repeat
Adobe_cmykcolor_vars /_setrgbcolor get exec
} def
/currentcmykcolor % - currentcmykcolor cyan magenta yellow black
Adobe_cmykcolor_vars /_currentrgbcolor get exec
1 sub neg 3 1 roll
} repeat
} def
currentdict readonly pop end
setpacking
%%EndProcSet
%%BeginProcSet: Adobe_cshow 0 0
% cshow Operator
% Version 1.1 1/23/1989
% Copyright (C) 1987, 1988, 1989
% Adobe Systems Incorporated
% All Rights Reserved
currentpacking true setpacking
userdict /Adobe_cshow 3 dict dup begin put
/initialize % - initialize -
/cshow where
userdict /Adobe_cshow_vars 1 dict dup begin put
/_cshow % - _cshow proc
{} def
Adobe_cshow begin
Adobe_cshow
dup xcheck
bind
} if
userdict 3 1 roll put
} forall
} ifelse
} def
/terminate % - terminate -
} def
/cshow % proc string cshow -
Adobe_cshow_vars
exch /_cshow
exch put
0 0 Adobe_cshow_vars /_cshow get exec
} forall
} def
currentdict readonly pop end
setpacking
%%EndProcSet
%%BeginProcSet: Adobe_customcolor 0 0
% Custom Color Operators
% Version 1.0 5/9/1988
% Copyright (C) 1987, 1988
% Adobe Systems Incorporated
% All Rights Reserved
currentpacking true setpacking
userdict /Adobe_customcolor 5 dict dup begin put
/initialize % - initialize -
/setcustomcolor where
Adobe_customcolor begin
Adobe_customcolor
dup xcheck
bind
} if
pop pop
} forall
Adobe_customcolor begin
} ifelse
} def
/terminate % - terminate -
currentdict Adobe_customcolor eq
} if
} def
/findcmykcustomcolor % cyan magenta yellow black name findcmykcustomcolor object
5 packedarray
} def
/setcustomcolor % object tint setcustomcolor -
aload pop pop
4 index mul 4 1 roll
} repeat
5 -1 roll pop
setcmykcolor
} def
/setoverprint % boolean setoverprint -
} def
currentdict readonly pop end
setpacking
%%EndProcSet
%%BeginProcSet: Adobe_Illustrator881 0 0
% Adobe Illustrator (TM) Prolog
% Version 1.19 1/23/1989
% Copyright (C) 1987, 1988, 1989
% Adobe Systems Incorporated
% All Rights Reserved
currentpacking true setpacking
userdict /Adobe_Illustrator881 72 dict dup begin put
% initialization
/initialize % - initialize -
userdict /Adobe_Illustrator881_vars 29 dict dup begin put
% paint operands
/_lp /none def
/_pf {} def
/_ps {} def
/_psf {} def
/_pss {} def
% text operands
/_a null def
/_as null def
/_tt 2 array def
/_tl 2 array def
/_tm matrix def
/t {} def
% color operands
/_gf null def
/_cf 4 array def
/_if null def
/_of false def
/_fc {} def
/_gs null def
/_cs 4 array def
/_is null def
/_os false def
/_sc {} def
/_i null def
Adobe_Illustrator881 begin
Adobe_Illustrator881
dup xcheck
bind
} if
pop pop
} forall
Adobe_Illustrator881 begin
Adobe_Illustrator881_vars begin
newpath
} def
/terminate % - terminate -
} def
% definition operators
/_ % - _ null
null def
/ddef % key value ddef -
Adobe_Illustrator881_vars 3 1 roll put
} def
/xput % key value literal xput -
dup load dup length exch maxlength eq
dup dup load dup
length 2 mul dict copy def
} if
load begin def end
} def
/npop % integer npop -
} repeat
} def
% marking operators
/sw % ax ay length string sw x y
stringwidth
exch 5 -1 roll 3 index 1 sub mul add
4 1 roll 3 1 roll 1 sub mul add
} def
/ss % ax ay length string matrix ss -
3 -1 roll pop
4 1 roll
2 npop (0) exch
2 copy 0 exch put pop
gsave
false charpath
currentpoint
4 index setmatrix
stroke
grestore
moveto
2 copy rmoveto
} exch cshow
3 npop
} def
% path operators
/sp % ax ay length string sp -
exch pop
2 npop (0) exch
2 copy 0 exch put pop
false charpath
2 copy rmoveto
} exch cshow
2 npop
} def
% path construction operators
/pl % x y pl x y
transform
0.25 sub round 0.25 add exch
0.25 sub round 0.25 add exch
itransform
} def
/setstrokeadjust where
pop true setstrokeadjust
/c % x1 y1 x2 y2 x3 y3 c -
curveto
} def
/c load def
/v % x2 y2 x3 y3 v -
currentpoint 6 2 roll curveto
} def
/v load def
/y % x1 y1 x2 y2 y -
2 copy curveto
} def
/y load def
/l % x y l -
lineto
} def
/l load def
/m % x y m -
moveto
} def
pl curveto
} def
/c load def
currentpoint 6 2 roll pl curveto
} def
/v load def
pl 2 copy curveto
} def
/y load def
pl lineto
} def
/l load def
pl moveto
} def
} ifelse
% graphic state operators
/d % array phase d -
setdash
} def
/cf % - cf flatness
currentflat def
/i % flatness i -
dup 0 eq
pop cf
} if
setflat
} def
/j % linejoin j -
setlinejoin
} def
/J % linecap J -
setlinecap
} def
/M % miterlimit M -
setmiterlimit
} def
/w % linewidth w -
setlinewidth
} def
% path painting operators
/H % - H -
{} def
/h % - h -
closepath
} def
/N % - N -
newpath
} def
/n % - n -
/N load def
/F % - F -
} def
/f % - f -
closepath
} def
/S % - S -
} def
/s % - s -
closepath
} def
/B % - B -
gsave F grestore
} def
/b % - b -
closepath
} def
/W % - W -
} def
% text painting operators
/ta % length string ta ax ay length string
_as moveto
_tt aload pop 4 -2 roll
} def
/tl % - tl -
_tl aload pop translate
} def
/as % - as array
2 copy _tt aload pop 4 -2 roll sw
exch neg 2 div exch neg 2 div
2 copy _tt aload pop 4 -2 roll sw
exch neg exch neg
} cvlit def
/z % literal size leading tracking align z -
/_a exch ddef
/_as as _a get ddef
_a 2 le
0 _tt astore pop
0 exch neg _tl astore pop
0 exch neg _tt astore pop
neg 0 _tl astore pop
} ifelse
exch findfont exch scalefont setfont
} def
/tm % matrix tm -
_tm currentmatrix pop
concat
} def
/I % matrix I -
ta sp
} ddef
} def
/o % matrix o -
ta 4 npop
newpath
} ddef
} def
/e % matrix e -
ta _psf
newpath
} ddef
} def
/r % matrix r -
ta _tm _pss
newpath
} ddef
} def
/a % matrix a -
2 copy
ta _psf
newpath
ta _tm _pss
newpath
} ddef
} def
/T % - T -
_tm setmatrix
} def
% font operators
/Z % array literal literal direction Z -
findfont begin
currentdict dup length 1 add dict begin
1 index /FID ne
def
2 npop
} ifelse
} forall
/FontName exch def dup length 0 ne
/Encoding Encoding 256 array copy def
0 exch
dup type /nametype eq
Encoding 2 index 2 index put pop
1 add
exch pop
} ifelse
} forall
} if pop
currentdict dup end end
/FontName get exch definefont pop
} def
% group operators
/u % - u -
{} def
/U % - U -
{} def
/q % - q -
gsave
} def
/Q % - Q -
grestore
} def
% place operators
/` % matrix llx lly urx ury string ` -
/_i save ddef
6 1 roll 4 npop
concat
userdict begin
/showpage {} def
false setoverprint
} def
/~ % - ~ -
_i restore
} def
% color operators
/O % flag O -
/_of exch ddef
/_lp /none ddef
} def
/R % flag R -
/_os exch ddef
/_lp /none ddef
} def
/g % gray g -
/_gf exch ddef
_lp /fill ne
_of setoverprint
_gf setgray
/_lp /fill ddef
} if
} ddef
} ddef
/_psf
exch pop
ashow
} ddef
/_lp /none ddef
} def
/G % gray G -
/_gs exch ddef
_lp /stroke ne
_os setoverprint
_gs setgray
/_lp /stroke ddef
} if
} ddef
stroke
} ddef
/_pss
} ddef
/_lp /none ddef
} def
/k % cyan magenta yellow black k -
_cf astore pop
_lp /fill ne
_of setoverprint
_cf aload pop setcmykcolor
/_lp /fill ddef
} if
} ddef
} ddef
/_psf
exch pop
ashow
} ddef
/_lp /none ddef
} def
/K % cyan magenta yellow black K -
_cs astore pop
_lp /stroke ne
_os setoverprint
_cs aload pop setcmykcolor
/_lp /stroke ddef
} if
} ddef
stroke
} ddef
/_pss
} ddef
/_lp /none ddef
} def
/x % cyan magenta yellow black name gray x -
/_gf exch ddef
findcmykcustomcolor
/_if exch ddef
_lp /fill ne
_of setoverprint
_if _gf 1 exch sub setcustomcolor
/_lp /fill ddef
} if
} ddef
} ddef
/_psf
exch pop
ashow
} ddef
/_lp /none ddef
} def
/X % cyan magenta yellow black name gray X -
/_gs exch ddef
findcmykcustomcolor
/_is exch ddef
_lp /stroke ne
_os setoverprint
_is _gs 1 exch sub setcustomcolor
/_lp /stroke ddef
} if
} ddef
stroke
} ddef
/_pss
} ddef
/_lp /none ddef
} def
% locked object operators
/A % value A -
} def
currentdict readonly pop end
setpacking
%%EndProcSet
%%EndProlog
%%BeginSetup
Adobe_cmykcolor /initialize get exec
Adobe_cshow /initialize get exec
Adobe_customcolor /initialize get exec
Adobe_Illustrator881 /initialize get exec
%%EndSetup
0 i 0 J 0 j 1 w 4 M []0 d
%%Note:
299 573 m
251 573 l
197.9814 573 155 530.0186 155 477 c
155 423.9814 197.9814 381 251 381 c
299 381 l
325.5093 381 347 359.5093 347 333 c
347 306.4907 325.5093 285 299 285 c
299 333 l
251 333 L
251 237 L
251 237 L
299 237 l
352.0186 237 395 279.9814 395 333 c
395 386.0185 352.0186 429 299 429 c
251 429 l
224.4907 429 203 450.4907 203 477 c
203 503.5093 224.4907 525 251 525 c
251 477 l
299 477 L
299 573 L
107 189 m
107 621 L
443 621 L
443 189 L
107 189 L
275 405 m
%%Trailer
Adobe_Illustrator881 /terminate get exec
Adobe_customcolor /terminate get exec
Adobe_cshow /terminate get exec
Adobe_cmykcolor /terminate get exec
RandomHist
[576c]
NibData
@@@@s
Storage
{*@@}
[21{*@@}]
File's Owner
CustomObject
Application
MainMenu
MenuTemplate
*@*@ccc
Matrix
Control
Responder
@:@iiii
MenuCell
ButtonCell
ActionCell
Info...
Helvetica
ff@@#::s
MyWindow
WindowTemplate
iiii***@s@
Histogram
Window
Clear
Start
Button
CustomView
HistogramView
Panel
TextField
TextFieldCell
Helvetica-BoldOblique
Written by Gregor N. Purdy
MVersion 1.0 Copyright 1992, Contemporary Design Studios All Rights Reserved.
6A program to demonstrate the use of the Random System.
Helvetica-Oblique
This program uses the Random System from Contemporary Design Studios. Random System is Copyright (C) 1991, 1992 Contemporary Design Studios. All rights reserved.